(type-break-get-previous-count): Repeat previous change here.
authorRichard M. Stallman <rms@gnu.org>
Sun, 11 Mar 2007 21:16:51 +0000 (21:16 +0000)
committerRichard M. Stallman <rms@gnu.org>
Sun, 11 Mar 2007 21:16:51 +0000 (21:16 +0000)
lisp/type-break.el

index e915ab2d1fb67f13dcb54ec9324bd150ba18b64b..e065e32df54b13ce82831871ea1c7bddb42aa244 100644 (file)
@@ -579,10 +579,13 @@ integer."
               (setq file
                     (with-current-buffer
                         (find-file-noselect file 'nowarn)
-                      (save-excursion
-                        (goto-char (point-min))
-                        (forward-line 1)
-                        (read (current-buffer)))))))
+                    (condition-case nil
+                        (save-excursion
+                          (goto-char (point-min))
+                          (forward-line 1)
+                          (read (current-buffer)))
+                      (end-of-file
+                       (error "End of file in `%s'" file)))))))
         file
       0)))